Attribute VB_Name = "Module1"
Public Base As DAO.Database

Sub Main()
    Set Base = OpenDatabase("C:\DACLI4\winda.ocx", False, False, ";pwd=m1aura16")
    frmCopiador.Show
End Sub
